Voorbeeld van de methode DeleteLines

Het volgende voorbeeld bestaat uit twee stappen. De eerste For...Next-lus maakt gebruik van de methode InsertLines om 26 steeds langere initiδle segmenten van het alfabet in CodePanes(1) in te voegen, te beginnen met "a". De laatste ingevoegde regel is het hele alfabet.

De tweede For...Next-lus maakt gebruik van de methode DeleteLines om de oneven regels te wissen. Hoewel het lijkt alsof de tweede lus alleen om en om een regel hoeft te verwijderen, moet u er rekening mee houden dat de regels na elke verwijdering opnieuw worden genummerd. Daarom verspringt de verwijdering met twee regels bij elke stap, ΘΘn regel omdat I met ΘΘn toeneemt en nog een regel omdat de hogere regelnummers elk met ΘΘn afnemen.

For I = 1 to 26
    Application.VBE.SelectedVBComponent.CodeModule.InsertLines i, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I)
Next
For I = 1 to 13
    Application.VBE.SelectedVBComponent.CodeModule.DeleteLines I
Next